#!
@boys = qw(Tom John Peter Jun);
@girls = qw(Rose Mary Halen);
@kids = (@boys,@girls);
#output all elements
print "@kids\n";

print $#boys,"\n";
print "@boys[1,3]\n";
$size = @kids;
print "size is $size\n";
print scalar @kids;
